home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs20.d81 / footprnt.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  83 lines
  1. 2 REM * FOOTPRINTS *
  2. 4 REM * BY DAN RICHARDS *
  3. 10 PRINT"[147]"
  4. 15 POKE53280,0:POKE53281,6
  5. 20 V=53248
  6. 25 POKEV+21,0
  7. 30 POKE2040,192:POKE2041,193
  8. 35 POKE2042,194:POKE2043,195
  9. 40 POKE2044,196:POKE2045,197
  10. 43 GOSUB1000
  11. 45 FORQ=0TO5
  12. 50 FORS=0TO62
  13. 55 READA
  14. 60 POKE(192+Q)*64+S,A
  15. 65 NEXTS
  16. 70 NEXTQ
  17. 75 POKEV+39,1:POKEV+40,1
  18. 80 POKEV+41,1:POKEV+42,1
  19. 85 POKEV+43,1:POKEV+44,1
  20. 90 POKEV+21,3
  21. 91 PRINT"[147]":FORW=1TO2000:NEXTW
  22. 93 FORX=245TO35STEP-30
  23. 95 POKEV+2,230:POKEV+3,X
  24. 100 FORW=1TO200:NEXTW
  25. 105 POKEV,250:POKEV+1,X-15
  26. 110 FORW=1TO200:NEXTW
  27. 115 NEXTX
  28. 235 POKEV+2,230:POKEV+3,35
  29. 245 POKEV,1:POKEV+1,1
  30. 255 POKEV+2,1:POKEV+3,1
  31. 260 FORW=1TO200:NEXTW
  32. 265 POKEV+21,12
  33. 268 FORX=5TO155STEP30
  34. 270 POKEV+4,100:POKEV+5,X
  35. 275 FORW=1TO200:NEXTW
  36. 280 POKEV+6,80:POKEV+7,X+15
  37. 285 FORW=1TO200:NEXTW
  38. 385 NEXTX
  39. 390 POKEV+4,100:POKEV+5,185
  40. 395 FORW=1TO200:NEXTW
  41. 400 POKEV+6,80:POKEV+7,200
  42. 405 POKEV+8,75:POKEV+9,229
  43. 410 POKEV+10,110:POKEV+11,229
  44. 415 POKEV+21,60
  45. 420 FORW=1TO400:NEXTW
  46. 425 POKEV,100:POKEV+1,185
  47. 430 POKEV+2,80:POKEV+3,200
  48. 435 POKEV+21,51
  49. 440 POKEV+4,1:POKEV+5,1
  50. 445 POKEV+6,1:POKEV+7,1
  51. 448 FORX=170TO20STEP-30
  52. 450 POKEV,100:POKEV+1,X
  53. 455 FORW=1TO20:NEXTW
  54. 460 POKEV+2,80:POKEV+3,X-15
  55. 465 FORW=1TO20:NEXTW
  56. 568 NEXTX
  57. 570 POKEV,1:POKEV+1,1
  58. 575 FORW=1TO20:NEXTW
  59. 580 POKEV+2,1:POKEV+3,1
  60. 585 FORW=1TO1000:NEXTW
  61. 588 END
  62. 590 DATA 0,0,0,0,0,0,0,0,0,0,212,0,0,213,0,0,1,64,0,254,64,0,255,128,0,255,128
  63. 595 DATA 0,127,0,0,62,0,0,60,0,0,60,0,0,60,0,0,124,0,0,252,0,0,252,0,0,248,0
  64. 600 DATA 0,112,0,0,0,0,0,0,0
  65. 605 DATA 0,0,0,0,0,0,0,0,0,0,43,0,0,171,0,2,128,0,2,127,0,1,255,0,1,255,0
  66. 610 DATA 0,254,0,0,124,0,0,60,0,0,60,0,0,60,0,0,62,0,0,63,0,0,63,0,0,31,0
  67. 615 DATA 0,14,0,0,0,0,0,0,0
  68. 620 DATA 0,0,0,0,0,0,0,112,0,0,248,0,0,252,0,0,252,0,0,124,0,0,60,0,0,60,0
  69. 625 DATA 0,60,0,0,62,0,0,127,0,0,255,128,0,255,128,0,254,64,0,1,64,0,213,0
  70. 630 DATA 0,212,0,0,0,0,0,0,0,0,0,0
  71. 635 DATA 0,0,0,0,0,0,0,14,0,0,31,0,0,63,0,0,63,0,0,62,0,0,60,0,0,60,0,0,60,0
  72. 640 DATA 0,124,0,0,254,0,1,255,0,1,255,0,2,127,0,2,128,0,0,171,0,0,43,0,0,0,0
  73. 645 DATA 0,0,0,0,0,0
  74. 650 DATA 0,0,0,0,0,0,1,129,128,3,195,192,7,231,224,39,231,228,115,195,206
  75. 655 DATA 248,0,31,248,255,31,113,255,142,3,255,192,7,255,224,7,255,224
  76. 660 DATA 7,255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  77. 665 DATA 0,0,0,0,0,0,1,129,128,3,195,192,7,231,224,39,231,228,115,195,206
  78. 670 DATA 248,0,31,248,255,31,113,255,142,3,255,192,7,255,224,7,255,224
  79. 675 DATA 7,255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 1000 PRINTTAB(15)"FOOTPRINTS[146]"
  81. 1010 PRINT:PRINT:PRINTTAB(13)"PLEASE WAIT..."
  82. 1050 RETURN
  83.